home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).adf / Widerstände & Berechnung / GEMISCHTESCHALTUNG (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  16KB  |  529 lines
  1.      'Dieses Programm schrieb fuer Sie
  2.      'Detlef Kornatz
  3.      'Feuerbachstrasse 6
  4.      'D-4300 ESSEN 1
  5. '**************************************************************************
  6.  
  7.      SCREEN 1,640,256,4,2
  8.      WINDOW 2,,,0,1
  9.      CLS
  10.      PALETTE 0,0.26,0.1,0   'rot
  11.      FOR i=1 TO 8
  12.      PALETTE i,i/40,i/16,0
  13.      NEXT i
  14.      FOR i=1 TO 12
  15.      LINE (i+2,7+i)-(530-i,46-i),i-1,b     'TITEL
  16.      LINE (i+532,7+i)-(630-i,46-i),i-1,b   'ende
  17.      LINE (i+2,47+i)-(216-i,86-i),i-1,b    'STROM
  18.      LINE (i+2,87+i)-(216-i,126-i),i-1,b   'SPANNUNG
  19.      LINE (i+217,47+i)-(416-i,86-i),i-1,b  'RG*R1+R2
  20.      LINE (i+217,87+i)-(416-i,126-i),i-1,b 'STROM a WIDER
  21.      LINE (i+417,47+i)-(630-i,86-i),i-1,b  'RG
  22.      LINE (i+417,87+i)-(630-i,126-i),i-1,b '??
  23.      LINE (i+2,125+i)-(630-i,258-i),i-1,b  'AUSGABEWINDOW
  24.      NEXT i
  25.      COLOR 9,0
  26.      LOCATE 4,6 :PRINT " GEMISCHTESCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
  27.      LOCATE 4,72:PRINT "ENDE"
  28.      COLOR 12,0
  29.      LOCATE 9,11:PRINT  "1.STROM"
  30.      LOCATE 14,11:PRINT "2.STROM"
  31.      LOCATE 9,36:PRINT  "1.SPANNUNG"
  32.      LOCATE 14,36:PRINT "2.SPANNUNG"
  33.      LOCATE 14,57:PRINT "2.GESAMTWIDERSTAND"
  34.      LOCATE 9,57:PRINT  "1.GESAMTWIDERSTAND"
  35.  anfang:
  36.      ON MOUSE GOSUB mausdruck
  37.      MOUSE ON
  38.      WHILE 1 : WEND
  39.  mausdruck:
  40.      druck=MOUSE(0)
  41.      x=MOUSE(3) : y=MOUSE(4)     
  42.    IF x>35 AND x<203 AND y>60 AND y<73   THEN GOSUB stro
  43.    IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB stromwi
  44.    IF x>225 AND x<403 AND y>60 AND y<73 THEN GOSUB span
  45.    IF x>225 AND x<403 AND y>100 AND y<113 THEN GOSUB spanwi
  46.    IF x>425 AND x<620 AND y>100 AND y<113 THEN GOSUB gesamtb
  47.    IF x>425 AND x<620 AND y>60 AND y<73 THEN GOSUB gesamta
  48.    IF x>545 AND x<620 AND y>20 AND y<33  THEN GOSUB ende
  49.    GOTO anfang
  50. stro:
  51.    SOUND 330,5,100
  52.    WINDOW 3,,(20,140)-(611,235),0,1
  53.    CLS:TIMER OFF
  54.    COLOR 8,0
  55.    CIRCLE(25,95),4,1
  56.    LINE (25,37)-(25,93),1
  57.    LINE (25,37)-(80,37),1
  58.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  59.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  60.    LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
  61.    LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
  62.    LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
  63.    LINE (511,17)-(565,17),1
  64.    LINE (511,58)-(565,58),1
  65.    LINE (565,17)-(565,93),1
  66.    CIRCLE(565,95),4,1
  67.    ON TIMER (3) GOSUB st
  68.    TIMER ON
  69.    WHILE 3:SLEEP:WEND
  70. st:
  71.    CLS
  72.    TIMER OFF
  73.    COLOR 10,0
  74.    LOCATE 2,8
  75.    INPUT " WIDERSTAND R1:   ";wl
  76.    LOCATE 4,8  
  77.    INPUT " WIDERSTAND R2:   ";w
  78.    LOCATE 6,8
  79.    INPUT " WIDERSTAND R3:   ";ww
  80.    LOCATE 8,8
  81.    INPUT "GESAMTSPANNUNG:   ";sp
  82.    CLS
  83.    rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
  84.    COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM       =":LOCATE 2,41:PRINT "AMPER"
  85.    LOCATE 2,30:PRINT USING "#####.###"; sp/rg
  86.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  87.    LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  88.    COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1   =":LOCATE 6,41:PRINT "AMPER"
  89.    LOCATE 6,30:PRINT USING "#####.###"; spr/w
  90.    COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2   =":LOCATE 8,41:PRINT "AMPER"
  91.    LOCATE 8,30:PRINT USING "#####.###"; spr/ww 
  92.    ON TIMER (4) GOSUB strom
  93.    TIMER ON
  94.    WHILE 4:SLEEP:WEND
  95. strom:
  96.    SOUND 440,5,100:SOUND 220,5,80
  97.    CLS:TIMER OFF
  98.    COLOR 8,0
  99.    CIRCLE(25,95),4,1
  100.    LINE (25,37)-(25,93),1
  101.    LINE (25,37)-(80,37),1
  102.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  103.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  104.    LINE (80,25)-(270,50),9,b  'R1
  105.    LINE (320,5)-(510,30),9,b   'R2
  106.    LINE (320,45)-(510,70),9,b  'R3
  107.    LINE (511,17)-(565,17),1
  108.    LINE (511,58)-(565,58),1
  109.    LINE (565,17)-(565,93),1
  110.    CIRCLE(565,95),4,1
  111.    rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
  112.    COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
  113.    LOCATE 2,50:PRINT USING "#####.###"; spr/w
  114.    COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
  115.    LOCATE 7,50:PRINT USING "#####.###"; spr/ww 
  116.    COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
  117.    LOCATE 12,11:PRINT USING "#####.###"; sp/rg
  118.    COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
  119.    LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  120.    COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
  121.    LOCATE 5,17:PRINT USING "#####.##";wl
  122.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  123.    LOCATE 3,50:PRINT USING "#####.##";w
  124.    COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
  125.    LOCATE 8,50:PRINT USING "#####.##";ww
  126.    COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
  127.    LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
  128.    COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
  129.    LOCATE 12,32: PRINT USING "#####.###";sp
  130.    COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
  131.    LOCATE 8,17: PRINT USING "#####.##"; spl
  132.    COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
  133.    LOCATE 10,50: PRINT USING "#####.##"; spr
  134.    GOTO anfang
  135.    RETURN
  136. span:
  137.    SOUND 330,5,100
  138.    WINDOW 3,,(20,140)-(611,235),0,1
  139.    CLS:TIMER OFF
  140.    COLOR 8,0
  141.    CIRCLE(25,95),4,1
  142.    LINE (25,37)-(25,93),1
  143.    LINE (25,37)-(80,37),1
  144.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  145.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  146.    LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
  147.    LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
  148.    LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
  149.    LINE (511,17)-(565,17),1
  150.    LINE (511,58)-(565,58),1
  151.    LINE (565,17)-(565,93),1
  152.    CIRCLE(565,95),4,1
  153.    ON TIMER (3) GOSUB sa
  154.    TIMER ON
  155.    WHILE 3:SLEEP:WEND
  156. sa:
  157.    CLS:TIMER OFF
  158.    COLOR 10,0
  159.    LOCATE 2,8
  160.    INPUT " WIDERSTAND R1:   ";wl
  161.    LOCATE 4,8  
  162.    INPUT " WIDERSTAND R2:   ";w
  163.    LOCATE 6,8
  164.    INPUT " WIDERSTAND R3:   ";ww
  165.    LOCATE 8,8
  166.    INPUT "GESAMTSTROM:      ";stg
  167.    CLS
  168.    rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
  169.    COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG    =":LOCATE 2,41:PRINT "VOLT"
  170.    LOCATE 2,30:PRINT USING "#####.###"; stg*rg
  171.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  172.    LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  173.    COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1   =":LOCATE 6,41:PRINT "AMPER"
  174.    LOCATE 6,30:PRINT USING "#####.###"; spr/w
  175.    COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2   =":LOCATE 8,41:PRINT "AMPER"
  176.    LOCATE 8,30:PRINT USING "#####.###"; spr/ww
  177.    COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM       =":LOCATE 10,41:PRINT "AMPER"
  178.    LOCATE 10,30:PRINT USING "#####.###"; sp/rg
  179.    ON TIMER (4) GOSUB spannung
  180.    TIMER ON
  181.    WHILE 4:SLEEP:WEND
  182. spannung:
  183.    SOUND 440,5,100:SOUND 220,5,80
  184.    CLS:TIMER OFF
  185.    COLOR 8,0
  186.    CIRCLE(25,95),4,1
  187.    LINE (25,37)-(25,93),1
  188.    LINE (25,37)-(80,37),1
  189.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  190.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  191.    LINE (80,25)-(270,50),9,b  'R1
  192.    LINE (320,5)-(510,30),9,b   'R2
  193.    LINE (320,45)-(510,70),9,b  'R3
  194.    LINE (511,17)-(565,17),1
  195.    LINE (511,58)-(565,58),1
  196.    LINE (565,17)-(565,93),1
  197.    CIRCLE(565,95),4,1
  198.    rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
  199.    COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
  200.    LOCATE 2,50:PRINT USING "#####.###"; spr/w
  201.    COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
  202.    LOCATE 7,50:PRINT USING "#####.###"; spr/ww 
  203.    COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
  204.    LOCATE 12,11:PRINT USING "#####.###"; sp/rg
  205.    COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
  206.    LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  207.    COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
  208.    LOCATE 5,17:PRINT USING "#####.##";wl
  209.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  210.    LOCATE 3,50:PRINT USING "#####.##";w
  211.    COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
  212.    LOCATE 8,50:PRINT USING "#####.##";ww
  213.    COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
  214.    LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
  215.    COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
  216.    LOCATE 12,32: PRINT USING "#####.###";sp
  217.    COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
  218.    LOCATE 8,17: PRINT USING "#####.##"; spl
  219.    COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
  220.    LOCATE 10,50: PRINT USING "#####.##"; spr
  221.    GOTO anfang
  222.    RETURN
  223. gesamta: 
  224.    SOUND 330,5,100
  225.    WINDOW 3,,(20,140)-(611,235),0,1
  226.    CLS:TIMER OFF
  227.    COLOR 8,0
  228.    CIRCLE(25,95),4,1
  229.    LINE (25,37)-(25,93),1
  230.    LINE (25,37)-(80,37),1
  231.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  232.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  233.    LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
  234.    LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
  235.    LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
  236.    LINE (511,17)-(565,17),1
  237.    LINE (511,58)-(565,58),1
  238.    LINE (565,17)-(565,93),1
  239.    CIRCLE(565,95),4,1
  240.    ON TIMER (3) GOSUB wi
  241.    TIMER ON
  242.    WHILE 3:SLEEP:WEND
  243. wi:
  244.    CLS:TIMER OFF
  245.    COLOR 10,0
  246.    LOCATE 2,8
  247.    INPUT " WIDERSTAND R1:   ";wl
  248.    LOCATE 4,8  
  249.    INPUT " WIDERSTAND R2:   ";w
  250.    LOCATE 6,8
  251.    INPUT " WIDERSTAND R3:   ";ww
  252.    CLS
  253.    rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
  254.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  255.    LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  256.    ON TIMER (4) GOSUB wid
  257.    TIMER ON
  258.    WHILE 4:SLEEP:WEND
  259. wid:
  260.    SOUND 440,5,100:SOUND 220,5,80
  261.    CLS:TIMER OFF
  262.    COLOR 8,0
  263.    CIRCLE(25,95),4,1
  264.    LINE (25,37)-(25,93),1
  265.    LINE (25,37)-(80,37),1
  266.    LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
  267.    LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
  268.    LINE (80,25)-(270,50),9,b  'R1
  269.    LINE (320,5)-(510,30),9,b   'R2
  270.    LINE (320,45)-(510,70),9,b  'R3
  271.    LINE (511,17)-(565,17),1
  272.    LINE (511,58)-(565,58),1
  273.    LINE (565,17)-(565,93),1
  274.    CIRCLE(565,95),4,1
  275.    rg=wl+(w*ww)/(w+ww) 
  276.    COLOR 12,0 :LOCATE 12,28:PRINT "RG =":LOCATE 12,46:PRINT "OHM"
  277.    LOCATE 12,35:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
  278.    COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
  279.    LOCATE 5,17:PRINT USING "#####.##";wl
  280.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  281.    LOCATE 3,50:PRINT USING "#####.##";w
  282.    COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
  283.    LOCATE 8,50:PRINT USING "#####.##";ww
  284.    COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
  285.    LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
  286.    GOTO anfang
  287.    RETURN
  288.  
  289.  '------------ENDE 1-----------------------------------------     
  290.      
  291. stromwi:
  292.    SOUND 330,5,100
  293.    WINDOW 3,,(20,140)-(611,235),0,1
  294.    CLS:TIMER OFF 
  295.    COLOR 8,0
  296.    CIRCLE(25,95),4,2
  297.    LINE (25,17)-(25,93),1
  298.    LINE (25,17)-(80,17),1
  299.    LINE(271,17)-(320,17),1
  300.    LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
  301.    LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
  302.    LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
  303.    LINE (511,17)-(565,17),1
  304.    LINE (391,58)-(565,58),1
  305.    LINE (25,58)-(199,58),1
  306.    LINE (565,17)-(565,93),1
  307.    CIRCLE(565,95),4,2
  308.    ON TIMER (3) GOSUB ss
  309.    TIMER ON
  310.    WHILE 3:SLEEP:WEND
  311. ss:
  312.    CLS:TIMER OFF
  313.    COLOR 10,0
  314.    LOCATE 2,8
  315.    INPUT " WIDERSTAND R1:   ";wa
  316.    LOCATE 4,8  
  317.    INPUT " WIDERSTAND R2:   ";wb
  318.    LOCATE 6,8
  319.    INPUT " WIDERSTAND R3:   ";w
  320.    LOCATE 8,8
  321.    INPUT "GESAMTSTROM:      ";stg
  322.    CLS
  323.    rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
  324.    COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG    =":LOCATE 2,41:PRINT "VOLT"
  325.    LOCATE 2,30:PRINT USING "#####.###"; stg*rg
  326.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  327.    LOCATE 4,30:PRINT USING "#####.###"; rg
  328.    COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
  329.    LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
  330.    COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3   =":LOCATE 8,41:PRINT "AMPER"
  331.    LOCATE 8,30:PRINT USING "#####.###"; sp/w
  332.    COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM       =":LOCATE 10,41:PRINT "AMPER"
  333.    LOCATE 10,30:PRINT USING "#####.###"; sp/rg
  334.    ON TIMER (4) GOSUB stwid
  335.    TIMER ON
  336.    WHILE 4:SLEEP:WEND
  337. stwid:
  338.    SOUND 440,5,100:SOUND 220,5,80
  339.    CLS:TIMER OFF
  340.    COLOR 8,0
  341.    CIRCLE(25,95),4,2
  342.    LINE (25,17)-(25,93),1
  343.    LINE (25,17)-(80,17),1
  344.    LINE(271,17)-(320,17),1
  345.    LINE (80,5)-(270,30),9,b   
  346.    LINE (320,5)-(510,30),9,b  
  347.    LINE (200,45)-(390,70),9,b 
  348.    LINE (511,17)-(565,17),1
  349.    LINE (391,58)-(565,58),1
  350.    LINE (25,58)-(199,58),1
  351.    LINE (565,17)-(565,93),1
  352.    CIRCLE(565,95),4,2
  353.     rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
  354.    COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
  355.    LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
  356.    COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
  357.    LOCATE 7,35:PRINT USING "#####.###"; sp/w 
  358.    COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
  359.    LOCATE 12,11:PRINT USING "#####.###"; sp/rg
  360.    COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
  361.    LOCATE 12,55:PRINT USING "#####.###";rg
  362.    COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
  363.    LOCATE 3,17:PRINT USING "#####.##";wa
  364.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  365.    LOCATE 3,50:PRINT USING "#####.##";wb
  366.    COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
  367.    LOCATE 8,35:PRINT USING "#####.##";w
  368.    COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
  369.    LOCATE 5,49:PRINT USING "######.##";wa+wb
  370.    COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
  371.    LOCATE 12,32: PRINT USING "#####.###";sp
  372.    GOTO anfang
  373.    RETURN
  374.   '////////////////////////////////////////////////////////
  375. spanwi:
  376.    SOUND 330,5,100
  377.    WINDOW 3,,(20,140)-(611,235),0,1
  378.    CLS:TIMER OFF 
  379.    COLOR 8,0
  380.    CIRCLE(25,95),4,2
  381.    LINE (25,17)-(25,93),1
  382.    LINE (25,17)-(80,17),1
  383.    LINE(271,17)-(320,17),1
  384.    LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
  385.    LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
  386.    LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
  387.    LINE (511,17)-(565,17),1
  388.    LINE (391,58)-(565,58),1
  389.    LINE (25,58)-(199,58),1
  390.    LINE (565,17)-(565,93),1
  391.    CIRCLE(565,95),4,2
  392.    ON TIMER (3) GOSUB sss
  393.    TIMER ON
  394.    WHILE 3:SLEEP:WEND
  395. sss:
  396.    CLS:TIMER OFF
  397.    COLOR 10,0
  398.    LOCATE 2,8
  399.    INPUT " WIDERSTAND R1:   ";wa
  400.    LOCATE 4,8  
  401.    INPUT " WIDERSTAND R2:   ";wb
  402.    LOCATE 6,8
  403.    INPUT " WIDERSTAND R3:   ";w
  404.    LOCATE 8,8
  405.    INPUT "GESAMTSPANNUNG:   ";sp
  406.    CLS
  407.    rgo= wa+wb :rg= (rgo*w)/(rgo+w): stg= sp/rg
  408.    COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM       =":LOCATE 2,41:PRINT "AMPER"
  409.    LOCATE 2,30:PRINT USING "#####.###"; sp/rg
  410.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  411.    LOCATE 4,30:PRINT USING "#####.###"; rg
  412.    COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
  413.    LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
  414.    COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3   =":LOCATE 8,41:PRINT "AMPER"
  415.    LOCATE 8,30:PRINT USING "#####.###"; sp/w
  416.    COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSPANNUNG    =":LOCATE 10,41:PRINT "VOLT"
  417.    LOCATE 10,30:PRINT USING "#####.###"; sp
  418.    ON TIMER (4) GOSUB swid
  419.    TIMER ON
  420.    WHILE 4:SLEEP:WEND
  421. swid:
  422.    SOUND 440,5,100:SOUND 220,5,80
  423.    CLS:TIMER OFF
  424.    COLOR 8,0
  425.    CIRCLE(25,95),4,2
  426.    LINE (25,17)-(25,93),1
  427.    LINE (25,17)-(80,17),1
  428.    LINE(271,17)-(320,17),1
  429.    LINE (80,5)-(270,30),9,b   
  430.    LINE (320,5)-(510,30),9,b  
  431.    LINE (200,45)-(390,70),9,b 
  432.    LINE (511,17)-(565,17),1
  433.    LINE (391,58)-(565,58),1
  434.    LINE (25,58)-(199,58),1
  435.    LINE (565,17)-(565,93),1
  436.    CIRCLE(565,95),4,2
  437.     rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
  438.    COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
  439.    LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
  440.    COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
  441.    LOCATE 7,35:PRINT USING "#####.###"; sp/w 
  442.    COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
  443.    LOCATE 12,11:PRINT USING "#####.###"; sp/rg
  444.    COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
  445.    LOCATE 12,55:PRINT USING "#####.###";rg
  446.    COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
  447.    LOCATE 3,17:PRINT USING "#####.##";wa
  448.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  449.    LOCATE 3,50:PRINT USING "#####.##";wb
  450.    COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
  451.    LOCATE 8,35:PRINT USING "#####.##";w
  452.    COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
  453.    LOCATE 5,49:PRINT USING "######.##";wa+wb
  454.    COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
  455.    LOCATE 12,32: PRINT USING "#####.###";sp
  456.    GOTO anfang
  457.    RETURN
  458. gesamtb:
  459.    SOUND 330,5,100
  460.    WINDOW 3,,(20,140)-(611,235),0,1
  461.    CLS:TIMER OFF 
  462.    COLOR 8,0
  463.    CIRCLE(25,95),4,2
  464.    LINE (25,17)-(25,93),1
  465.    LINE (25,17)-(80,17),1
  466.    LINE(271,17)-(320,17),1
  467.    LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
  468.    LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
  469.    LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
  470.    LINE (511,17)-(565,17),1
  471.    LINE (391,58)-(565,58),1
  472.    LINE (25,58)-(199,58),1
  473.    LINE (565,17)-(565,93),1
  474.    CIRCLE(565,95),4,2
  475.    ON TIMER (3) GOSUB ssw
  476.    TIMER ON
  477.    WHILE 3:SLEEP:WEND
  478. ssw:
  479.    CLS:TIMER OFF
  480.    COLOR 10,0
  481.    LOCATE 2,8
  482.    INPUT " WIDERSTAND R1:   ";wa
  483.    LOCATE 4,8  
  484.    INPUT " WIDERSTAND R2:   ";wb
  485.    LOCATE 6,8
  486.    INPUT " WIDERSTAND R3:   ";w
  487.    CLS
  488.    rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
  489.    COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
  490.    LOCATE 4,30:PRINT USING "#####.###"; rg
  491.    ON TIMER (4) GOSUB wider
  492.    TIMER ON
  493.    WHILE 4:SLEEP:WEND
  494. wider:
  495.    SOUND 440,5,100:SOUND 220,5,80
  496.    CLS:TIMER OFF
  497.    COLOR 8,0
  498.    CIRCLE(25,95),4,2
  499.    LINE (25,17)-(25,93),1
  500.    LINE (25,17)-(80,17),1
  501.    LINE(271,17)-(320,17),1
  502.    LINE (80,5)-(270,30),9,b   
  503.    LINE (320,5)-(510,30),9,b  
  504.    LINE (200,45)-(390,70),9,b 
  505.    LINE (511,17)-(565,17),1
  506.    LINE (391,58)-(565,58),1
  507.    LINE (25,58)-(199,58),1
  508.    LINE (565,17)-(565,93),1
  509.    CIRCLE(565,95),4,2
  510.     rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
  511.    COLOR 12,0 :LOCATE 12,27:PRINT "RG =":LOCATE 12,42:PRINT "OHM"
  512.    LOCATE 12,32:PRINT USING "#####.###";rg
  513.    COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
  514.    LOCATE 3,17:PRINT USING "#####.##";wa
  515.    COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
  516.    LOCATE 3,50:PRINT USING "#####.##";wb
  517.    COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
  518.    LOCATE 8,35:PRINT USING "#####.##";w
  519.    COLOR 7,0 :LOCATE 5,24:PRINT "RG1+2 =":LOCATE 5,42:PRINT "OHM"
  520.    LOCATE 5,32:PRINT USING "######.##";wa+wb
  521.    GOTO anfang
  522.    RETURN
  523. ende:
  524. WINDOW CLOSE 2
  525. SCREEN CLOSE 1
  526.  END
  527. GOTO mausdruck
  528.  
  529.